ret = Inputbox("Vyskytla se chyba, nemohu nainstalovat msxml6, najd∞te jej na nßsledujφcφ strßnce a nainstalujte jej ruΦn∞. PotΘ spus¥te skript znovu.", "Chyba", "http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=993c0bcf-3bcf-4009-be21-27e85e1857b1")
call SubQuit()
end if
end if
if msx = 0 then
Set xmlupd = myfiles.OpenTextFile(Pfad & "\xmlupd.bat", 2, True)
ret = Msgbox("Do systΘmu byl nainstalovßn Windows Installer 3.1. Aby skript sprßvn∞ fungoval, je nutno restartovat poΦφtaΦ. Po restartu poΦφtaΦe spus¥te skript znovu." & vbcr & vbcr & "Restartovat nynφ", vbYesNo + vbExclamation, "Je nutno restartovat poΦφtaΦ")
if ret = vbYes then
Set Sysess = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For Each sys In Sysess
Sys.Win32Shutdown 6
exit sub
Next
end if
end if
If not (myfiles.FileExists(catpfad)) Then
LoadIt
if LoadIt = "10" then
exit Sub
end if
Else
Laden = MsgBox("Chcete stßhnout aktußlnφ databßzi aktualizacφ od Microsoftu?", 4, "Stßhnout soubor Wsusscan.CAB")
ret = Msgbox("Do systΘmu byl nainstalovßn Windows Installer 3.1. Aby skript sprßvn∞ fungoval, je nutno restartovat poΦφtaΦ. Po restartu poΦφtaΦe spus¥te skript znovu." & vbcr & vbcr & "Restartovat nynφ", vbYesNo + vbExclamation, "Je nutno restartovat poΦφtaΦ")
if ret = vbYes then
Set Sysess = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For Each sys In Sysess
Sys.Win32Shutdown 6
exit sub
Next
end if
end if
mbsa2check Clipfad, catPfad, "install"
Set ToInst = myfiles.OpenTextFile(Pfad & "\DownloadUrls.txt", 1, False)
Set InstTo = myfiles.OpenTextFile(Pfad & "\Install.Bat", 2, True)
n = 0
x = 0
Do
Zeile = ToInst.Readline
Anfang = InStrRev(lcase(Zeile), "/", -1, 1)
If not Anfang = 0 Then
PName = Mid(Zeile, Anfang+1, len(Zeile))
If (myfiles.FileExists(DownloadVerz & "\" & PName)) and Lcase(Mid(PName, 1, 7)) = "windows" then
